Lexis Nexis Millenium Plus Collection 1997 to 1997

home *** CD-ROM | disk | FTP | other *** search

/ Lexis Nexis Millenium Plus Collection 1997 to 1997 / Lexis-Nexis Millenium Plus Collection - 1996-97 (Lexis-Nexis)(LA1173-0 07-96)(1996).bin / pc / office / lnoffice / olc / amipro / lexis.sm_ / lexis.sm

Wrap

INI File | 1995-03-02 | 47KB | 3,495 lines

[ver] 4 [sty] [files] [charset] 82 ANSI (Windows, IBM CP 1252) [revisions] 0 [docvars] LEXISClient=LEXIS macros for Ami Pro [prn] HP LaserJet III [port] LPT1: [lang] 1 [desc] Access LEXIS</n>/NEXIS</n> on-line research services 794170243 38 739509871 5648 12 2896 20096 33 41 1 [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [tag] Body Text 2 [fnt] Arial 200 0 16384 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Text 0 0 [tag] Function 3 [fnt] Arial 240 0 16385 [algn] 1 1 0 0 0 [spc] 33 244 1 0 0 1 100 [brk] 68 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 272 1 3 . , $ Body Text 0 0 [tag] Comment 4 [fnt] Arial 200 16711680 16386 [algn] 1 1 0 0 720 [spc] 40 220 4 43 0 1 100 [brk] 0 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 41 1 1 0 1 0 0 [nfmt] 272 1 2 . , $ Comment 0 0 [tag] label 5 [fnt] Arial 200 0 16385 [algn] 1 1 0 0 720 [spc] 40 220 4 43 0 1 100 [brk] 0 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 41 1 1 0 1 0 0 [nfmt] 272 1 2 . , $ label 0 0 [tag] Macro Debug 6 [fnt] Arial 220 255 16451 [algn] 1 1 0 0 720 [spc] 40 220 4 43 0 1 100 [brk] 0 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 41 1 1 0 1 0 0 [nfmt] 272 1 2 . , $ Macro Debug 0 0 [tag] Contact Info 7 [fnt] Arial MT 280 0 16384 [algn] 1 1 4680 0 0 [spc] 17 360 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 1 0 0 [nfmt] 272 1 2 . , $ Contact Info 0 0 [tag] Header 8 [fnt] Tms Rmn 200 0 49153 [algn] 4 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 272 1 3 . , $ Header 0 0 [tag] indent 1 9 [fnt] Arial 200 0 16384 [algn] 1 1 720 0 1440 [spc] 40 220 4 43 0 1 100 [brk] 0 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 41 1 1 0 1 0 0 [nfmt] 272 1 2 . , $ indent 1 0 0 [tag] Body Single 11 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Single 0 0 [tag] indent 2 12 [fnt] Arial 200 0 16384 [algn] 1 1 1440 0 1440 [spc] 40 220 4 43 0 1 100 [brk] 0 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 41 1 1 0 1 0 0 [nfmt] 272 1 2 . , $ indent 2 0 0 [tag] Bullet 1 0 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 288 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*5> 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Bullet 1 0 0 [tag] Number List 0 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 360 360 360 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*:>. 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Number List 0 0 [tag] Subhead 0 [fnt] TimesNewRomanPS 240 0 49155 [algn] 1 1 0 0 0 [spc] 33 273 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 2 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Subhead 0 0 [tag] Title 0 [fnt] Arial MT 360 0 16385 [algn] 4 1 0 0 0 [spc] 33 446 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Title 0 0 [tag] Normal 0 [fnt] Helv 200 0 16384 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Normal 0 0 [tag] Bullet 0 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*0> 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Bullet 0 0 [tag] indent 3 0 [fnt] Arial 200 0 16384 [algn] 1 1 2160 0 1440 [spc] 40 220 4 43 0 1 100 [brk] 0 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 41 1 1 0 1 0 0 [nfmt] 272 1 2 . , $ indent 3 0 0 [tag] section head 0 [fnt] Arial 200 0 16384 [algn] 1 1 0 0 0 [spc] 33 244 1 28 0 1 100 [brk] 0 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 41 1 1 0 1 0 0 [nfmt] 272 1 2 . , $ section head 0 0 [lay] Standard 513 [rght] 15840 12240 1 1440 1440 1 1440 1440 0 1 0 1 0 2 1 1440 10800 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 [hrght] [lyfrm] 1 11200 0 0 12240 1440 0 1 3 1 0 0 0 0 0 0 0 0 1 [frmlay] 1440 12240 1 1440 72 1 792 1440 0 1 0 1 1 0 1 1440 10800 1 3 9360 [txt] > [frght] [lyfrm] 1 13248 0 14400 12240 15840 0 1 3 1 0 0 0 0 0 0 0 0 2 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] > [elay] [l1] 0 [pg] 12 54 0 24 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 108 0 5 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 163 0 22 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 218 0 17 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 271 0 69 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 326 0 55 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 381 0 65 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 435 0 14 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 490 0 12 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 545 0 0 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 601 0 0 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 648 0 0 1025 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 [edoc] @Comment@<:S+-1><:#327,9360>'//** Macro name: <:f280,BArial,255,0,0><+!>LEXIS.SMM<-!><:f> (Ami version 3.0) @Comment@<:#220,9360>'//** LEXIS</n>/NEXIS</n> ACCESS for LOTUS</n> AMI PRO FOR WINDOWS(tm) @Comment@<:#220,9360>'//** </i>COPYRIGHT 1993 Gilbert & Associates, Inc. <:#231,9360>'----------------------------------------------------------------------------------------------------------------------------- <:#211,9360><:f180,BArial,0,0,0>' *** IMPORTANT NOTICE *** <:#211,9360><:f180,BArial,0,0,0>' This software, including the macro code, installation program and dynamic link library, <:#211,9360><:f180,BArial,0,0,0>' is owned by Gilbert & Associates, Inc. and is licensed to be used solely for access to <:#211,9360><:f180,BArial,0,0,0>' Mead Data Central's LEXIS/NEXIS online research database services ("LEXIS"). <:#211,9360><:f180,BArial,0,0,0>' You may copy the software and provide copies to others subject to the following conditions: <:#211,9360><:f180,BArial,0,0,0>' (1) The software may not be modified or used for any other purpose. (2) Each copy must <:#211,9360><:f180,BArial,0,0,0>' include all notices of copyright or other proprietary rights appearing in the original, including <:#211,9360><:f180,BArial,0,0,0>' this notice. (3) The software is provided "AS IS"; Gilbert & Associates makes no warranties or <:#211,9360><:f180,BArial,0,0,0>' representations to the user, and by using this software you agree to waive and release any and <:#211,9360><:f180,BArial,0,0,0>' all possible claims against or liabilities of Gilbert & Associates with respect to the software.<:f> <:#231,9360>'----------------------------------------------------------------------------------------------------------------------------- <:#231,9360> <:#231,9360> @label@<:#220,9360>DEFINE LEXISDialog() <:#231,9360> DllCall("lexis-ga.dll,LEXISDialog,IHCCCCIC",%1,%2,%3,%4,%5,%6,%7) @label@<:#220,9360>DEFINE LEXISData() <:#231,9360> DllCall("lexis-ga.dll,LEXISData,IH",%1) @label@<:#220,9360>DEFINE LEXISInfo() <:#231,9360> DllCall("lexis-ga.dll,LEXISInfo,CHI",%1,%2) <:#231,9360> @label@<:#220,9360>DEFINE LEXISDownloadToApp() <:#231,9360> DllCall("lexis-ga.dll,LEXISDownloadToApp,CC",%1) <:#231,9360> @label@<:#220,9360>DEFINE LEXISGetAppType() <:#231,9360> DllCall("lexis-ga.dll,LEXISGetAppType,H") <:#231,9360> @label@<:#220,9360>DEFINE dhStartLexisToolbar() <:#231,9360> DllCall("dlghook.dll,dhStartLexToolbar,H") <:#231,9360> @label@<:#220,9360> @label@<:#220,9360> @label@<:#220,9360>DEFINE dGetAppWindow() <:#231,9360> DllCall("lexis-ga.dll,dGetAppWindow,CC",%1) <:#231,9360> @label@<:#220,9360>DEFINE dGetAppFile() <:#231,9360> DllCall("lexis-ga.dll,dGetAppFile,CC",%1) @label@<:#220,9360>DEFINE dLobster() <:#231,9360> DllCall("lexis-ga.dll,dLobster,CCH",%1,%2) @label@<:#220,9360>DEFINE dGetIniText() <:#231,9360> DllCall("lexis-ga.dll,dGetIniText,CCCC",%1,%2,%3) @label@<:#220,9360>DEFINE dLastChar() <:#231,9360> DllCall("lexis-ga.dll,dLastChar,ICC",%1,%2) <:#231,9360> @label@<:#220,9360>DEFINE GetActiveWindow() <:#231,9360> DLLCall("user.dll,GetActiveWindow,H") @label@<:#220,9360> <:#231,9360> <-!><:f200,BArial,>DEFINE <:f>gcDBTITLE$ "LEXIS-NEXIS Online Connection" <:#231,9360> <:#231,9360>DEFINE cVERSION$ "2.70" <:#236,9360>DEFINE cDLLVER$ "2.70" <:f200,,0,0,255><+">'//** (minimum required dll version #)<-"><:f> <:#231,9360>DEFINE cDLLNAME$ "LEXIS-GA.DLL" <:#231,9360>DEFINE cAPPNAME$ "Lotus Ami Pro" <:#231,9360>DEFINE gcAPPWIN$ "Ami Pro" <:#231,9360>DEFINE gcAPPMOD$ "AMIPRO" <:#231,9360>DEFINE gcTEMPLATE$ "_LEXIS.STY" <:#231,9360> <:#231,9360>DEFINE gcINI#OPTIONS$ "DDE MACROS" <:#231,9360>DEFINE gcAPPENDBKMK$ "LEXISAppendStart" <:#231,9360>DEFINE Err 0 <:#231,9360>DEFINE BLUE 16711680 <:#231,9360> <:#231,9360>DECLARE fGetDocSelection$() <:#231,9360>DECLARE fLEXSEEFormat(vAPPEND, pPAGES) <:#231,9360>DECLARE fSetUpDoc(vHWnd, vAPPEND, vDOC, vFILETYPE$, vCITE$, vCLIENT$, vGLOBAL) <:#231,9360>DECLARE fError(pErr, pMsg$) <:#231,9360>DECLARE fNEWFILE(vHWnd, vFILETYPE$, vCITE$, vCLIENT$, vGLOBAL) <:#231,9360>DECLARE fSetDefaultFormat(vAPPEND) <:#231,9360> @Function@<:#293,9360>Function LEXISAmi() <:#231,9360> <:#231,9360>StatusBarMsg(StrCat$("Initializing ", gcDBTITLE$, "...")) <:#231,9360> <:#231,9360>OnError xMAINABORT <:#231,9360>hLEXIS = 0 <:#231,9360>FreeGlobalVar("LEXgFAILURE") <:#231,9360>If AllocGlobalVar("LEXgFAILURE", 1) = 0 Then <:#231,9360> Message(StrCat$("Insufficient memory initializing ", gcDBTITLE$, ".")) <:#231,9360> Goto xMAINFINISH <:#231,9360>EndIf <:#231,9360>SetGlobalVar("LEXgFAILURE", 0)<-"> <:#231,9360> <:#231,9360>If GetOpenFileCount() <;> 0 Then <:#231,9360> vEXISTFILE$ = LCase$(GetDocInfo$(1)) <:#231,9360> IF(vEXISTFILE$= "lexis.smm") Then <:#231,9360> x=MultiDecide( "Command cannot be run with this macro as the active document.", <:#231,9360> 0+16, gcDBTITLE$) <:#231,9360> Goto xMAINFINISH <:#231,9360> EndIf <:#231,9360>EndIf <:#231,9360> <:#231,9360>vHWnd = GetActiveWindow() <:#231,9360>cLF$ = Chr$(10) <:#231,9360> <:#231,9360>dhStartLexisToolbar() @label@<:#220,9360>Pause(2) @label@<:#220,9360> <:#231,9360>hLEXIS = DLLLoadLib(cDLLNAME$, "LEXISInfo", "CHI") <:#231,9360>If hLEXIS = 0 Then <:#462,9360> x=MultiDecide(StrCat$("LEXIS Access Library file missing.", cLF$, cLF$, cDLLNAME$, " must be ", <:#231,9360> "installed in the \WINDOWS\SYSTEM directory to run this macro."), 0+16, gcDBTITLE$) <:#231,9360> FreeGlobalVar("LEXgFAILURE") <:#231,9360> Goto xMAINFINISH <:#231,9360>EndIf <:#231,9360>If LEXISInfo(vHWnd, 12) << cDLLVER$ Then <:#231,9360> x=MultiDecide(StrCat$("Incorrect version of LEXIS Access Library (", cDLLNAME$, "). ", cLF$, <:#231,9360> "Version ", cDLLVER$, " or later is required."), 0+16, gcDBTITLE$) <:#231,9360> Goto xMAINCANCEL <:#231,9360>EndIf <:#231,9360> @Comment@<:#220,9360>'//** <[>status bar check omitted in Ami] <:#231,9360> <:#231,9360>OnCancel xMAINCANCEL <:#231,9360>vGLOBAL = 1 <:#231,9360> <:#236,9360>vDOCCLIENT$ = GetDocVar("LEXISClient") <:f200,,0,0,255><+">'//** (replaces fGetSetClient(0, vDOCCLIENT$))<-"><:f> <:#231,9360>vCLIENT$ = vDOCCLIENT$ <:#231,9360> <:#231,9360>vCITE$ = fGetDocSelection$() <:#231,9360> <:#231,9360>StatusBarMsg(StrCat$(gcDBTITLE$, " for ", cAPPNAME$)) <:#231,9360> <:#231,9360>vDLG = LEXISDialog(vHWnd, vCITE$, vCLIENT$, cAPPNAME$, cVERSION$, 0, "") <:#231,9360>If vDLG <;> 65500 Then <:#231,9360> vDLG = vDLG - 65536 <:#231,9360>EndIf <:#231,9360>If vDLG << 2 Then <:#231,9360> Goto xMAINCANCEL <:#231,9360>EndIf <:#231,9360> <:#231,9360>vCLIENT$ = LEXISInfo(vHWnd, 2) <:#231,9360>If vCLIENT$ <<<;> vDOCCLIENT$ And vCLIENT$ <<<;> "" Then <:#231,9360> SetDocVar("LEXISClient", vCLIENT$) <:#231,9360>EndIf <:#231,9360>If vDLG << 4 Then <:#231,9360> Goto xMAINCANCEL <:#231,9360>EndIf <:#231,9360> <:#231,9360> <:#231,9360>if LEXISGetAppType()<<<;>4 then <:#231,9360> LEXISDownloadToApp(vHWnd) <:#231,9360> goto xMAINCANCEL <:#231,9360>endif <:#231,9360> <:#231,9360> <:#231,9360>vCITE$ = LEXISInfo(vHWnd, 1) <:#231,9360>vDOCTYPE$ = LEXISInfo(vHWnd, 7) <:#231,9360>vFILETYPE$ = "" <:#231,9360>vDOC = 0 <:#231,9360>vPAGECNT = 0 <:#231,9360>vTOTPAGES = 0 <:#231,9360>vDATA = 3 <:#231,9360>vAPPEND = 0 <:#231,9360> <:#231,9360>While vDATA <;> 2 <:#231,9360><-"> vLB$ = Chr$(91) <:#231,9360> StatusBarMsg("{vDOCTYPE$} {vLB$}{vCITE$}]") <:#231,9360> vDATA = LEXISData(vHWnd) <:#231,9360> If vDATA <;> 65500 Then <:#231,9360> vDATA = vDATA - 65536 <:#231,9360> EndIf <:#231,9360> If(vDATA = 2) Or (vDATA <;> 3) Then <:#231,9360> If vDOC <;> 0 Then <:#231,9360> If UCase$(vFILETYPE$) = "LEXSEE" Then <:#231,9360> x = fLEXSEEFormat(vAPPEND, vPAGECNT) <:#231,9360> EndIf <:#231,9360> EndIf <:#231,9360> EndIf <:#231,9360> If vDATA <;> 2 Then <:#231,9360> If vDATA <;> 3 Then <:#231,9360> vAPPEND = vDATA - 4 <:#231,9360> vDOCTYPE$ = LEXISInfo(vHWnd, 7) <:#231,9360> vFILETYPE$ = dLobster(vDOCTYPE$, 11) <:#231,9360> If fSetUpDoc(vHWnd, vAPPEND, vDOC, vFILETYPE$, vCITE$, vCLIENT$, <:#231,9360> vGLOBAL) = 0 <:#231,9360> Then <:#231,9360> vDATA = 0 <:#231,9360> Else <:#231,9360> vDOC = vDOC + 1 <:#231,9360> EndIf <:#231,9360> If vAPPEND = 0 Then <:#231,9360> vTOTPAGES = vTOTPAGES + vPAGECNT <:#231,9360> vPAGECNT = 0 <:#231,9360> EndIf <:#231,9360> EndIf <:#231,9360> If vDATA <;> 0 Then <:#231,9360> ActivateApp(dGetAppWindow(gcAPPWIN$)) <:#231,9360> Paste() <:#231,9360> vPAGECNT = vPAGECNT + 1 <:#231,9360> EndIf <:#231,9360> EndIf <:#231,9360>Wend <:#231,9360> <:#231,9360>If vData = 2 Then <:#231,9360> vTOTPAGES = vTOTPAGES + vPAGECNT <:#231,9360> vMSG$ = "Download completed." <:#231,9360> StatusBarMsg(vMSG$) <:#231,9360> vDLGMSG$ = StrCat$("{vMSG$}{cLF$}{cLF$}LEXIS DOCUMENTS: {vDOC}{cLF$}", <:#231,9360> "TOTAL LEXIS PAGES: {vTOTPAGES}") <:#231,9360> Message(StrCat$(gcDBTITLE$, cLF$, "------------------------------------", cLF$, vDLGMSG$)) <:#231,9360>EndIf <:#231,9360>Goto xMAINCANCEL <:#231,9360> @label@<:#220,9360>xMAINABORT: <:#231,9360>x = fError(Err, "Error encountered in LEXIS/NEXIS Ami Pro macro main routine.") <:#231,9360> @label@<:#220,9360>xMAINCANCEL: <:#231,9360>StatusBarMsg("") <:#231,9360>If hLEXIS <<<;> 0 Then <:#231,9360> x$ = LEXISInfo(vHWnd, 0) <:#231,9360> DLLFreeLib(hLEXIS) <:#231,9360>EndIf <:#231,9360>FreeGlobalVar("LEXgFAILURE") <:#231,9360>If vDLG <<<;> 3 Then <:#231,9360> ActivateApp(dGetAppWindow(gcAPPWIN$)) <:#231,9360>EndIf <:#231,9360>If GetOpenFileCount() <;> 0 Then <:#231,9360> MarkBookMark(gcAPPENDBKMK$, DeleteBookmark) <:#231,9360>EndIf @Comment@<:#220,9360>'//** <[>status bar reset omitted] **// <:#231,9360> @label@<:#220,9360>xMAINFINISH: <:#231,9360>StatusBarMsg("") @label@<:#220,9360>End Function <:#231,9360> <:#231,9360> <:#231,9360>'---------- @Function@<:#293,9360>Function fGetDocSelection$() <:#231,9360>OnError xDOCSELECTIONFINISH <:#231,9360>vCITE$ = "" <:#231,9360> vCITE$ = CurShade$() <:#231,9360> vLEN = Len(vCITE$) <:#231,9360> If vLEN << 0 Or vLEN <;> 256 Then <:#231,9360> vCITE$ = "(invalid selection)" <:#231,9360> Else <:#231,9360> vCITE$ = Left$(vCITE$, 128) <:#231,9360> EndIf @label@<:#220,9360>xDOCSELECTIONFINISH: <:#231,9360>fGetDocSelection$ = vCITE$ @label@<:#220,9360>End Function <:#231,9360> <:#231,9360> <:#231,9360>'---------- @Function@<:#586,9360>Function fSetUpDoc(vHWnd, vAPPEND, vDOC, vFILETYPE$, vCITE$, vCLIENT$, vGLOBAL) <:#231,9360>vSTATUS = 0 <:#231,9360>OnError xSETUPABORT <:#231,9360>StatusBarMsg("Setting up document for downloading data...") <:#231,9360> <:#231,9360>If vAPPEND = 0 Then <:#231,9360> If GetOpenFileCount() <;> 8 Then <:#231,9360> If MultiDecide(StrCat$("Too many document windows open to create a new document.", <:#231,9360> Chr$(10), "Append to current document?."), 1 + 32, gcDBTITLE$) = 1 <:#231,9360> Then <:#231,9360> vAPPEND = 1 <:#231,9360> Else <:#231,9360> Goto xSETUPFINISH <:#231,9360> EndIf <:#231,9360> EndIf <:#231,9360>EndIf <:#231,9360> <:#231,9360>If vAPPEND = 0 Then <:#231,9360> If GetOpenFileCount() <;> 0 Then <:#231,9360> MarkBookMark(gcAPPENDBKMK$, DeleteBookmark) <:#231,9360> EndIf <:#231,9360> vSTATUS = fNewFile(vHWnd, vFILETYPE$, vCITE$, vCLIENT$, vGLOBAL) <:#231,9360> If vSTATUS = 0 Then <:#231,9360> If MultiDecide(StrCat$("Unable to create new document.", Chr$(10), <:#231,9360> "Append to current document?"), 1, gcDBTITLE$) = 1 <:#231,9360> Then <:#231,9360> vAPPEND = 1 <:#231,9360> Else <:#231,9360> Goto xSETUPFINISH <:#231,9360> EndIf <:#231,9360> EndIf <:#231,9360>EndIf <:#231,9360> <:#231,9360>If vAPPEND <<<;> 0 Then <:#231,9360> <:#231,9360><:f200,BArial,0,0,255>'//* Don't continue any further if no files are open, because we GPF!<:f> <:#231,9360> <:#231,9360> If GetOpenFileCount() = 0 Then <:#231,9360> Message ("Sorry, no document is open for appending.") <:#231,9360> Goto xSETUPFINISH <:#231,9360> EndIf <:#231,9360> <:#231,9360> Type("<[>CtrlEnd]") <:#231,9360> Type("<[>Home]") <:#231,9360> If CurChar$() <<<;> "" Then <:#231,9360> Type("<[>End]<[>Enter]") <:#231,9360> EndIf <:#462,9360> '// We must delete the bookmark or else Ami will append numbers to the end and hose everything. <:#231,9360> <:#231,9360> MarkBookMark(gcAPPENDBKMK$, DeleteBookmark) <:#231,9360> <:#231,9360> MarkBookMark(gcAPPENDBKMK$, AddBookmark) <:#231,9360> PageBreak(1) <:#231,9360> If vDOC = 0 Then <:#231,9360> vSTATUS = fSetDefaultFormat(1) <:#231,9360> If vSTATUS = 0 Then <:#231,9360> StatusBarMsg("Cleaning up...") <:#231,9360> MarkBookMark(gcAPPENDBKMK$, FindBookmark) <:#231,9360> Type("<[>ShiftCtrlEnd]") <:#231,9360> MarkBookMark(gcAPPENDBKMK$, DeleteBookmark) <:#231,9360> PageBreak(2) <:#231,9360> Type("<[>Del]") <:#231,9360> Else <:#231,9360> Type("<[>Enter]") <:#231,9360> Type( "<[>Up]") <:#231,9360> EndIf <:#231,9360> Else <:#231,9360> vSTATUS = 1 <:#231,9360> EndIf <:#231,9360>EndIf <:#231,9360> <:#231,9360>vHEADLINE$ = LEXISInfo(vHWnd, 8) <:#231,9360>If vHEADLINE$ <<<;> "" Then <:#231,9360> DEFSTR vFNAME$, vCOLOR, vFONTSIZE, vPITCHFAM <:#231,9360> GetCurFontInfo(&vFNAME$, &vCOLOR, &vFONTSIZE, &vPITCHFAM) <:#231,9360><:><:> FontChange("", 0, BLUE, vFONTSIZE) <:#231,9360><:><:><:><:> Italic() <:#231,9360> Type("{vHEADLINE$}<[>CtrlEnter]") <:#231,9360><:><:><:><:><:><:> FontChange("", 0, vCOLOR, vFONTSIZE) <:#231,9360> Italic() <:#231,9360> For i = 1 to 8 <:#231,9360> Type("----------") <:#231,9360> Next <:#231,9360> Type("<[>Enter]<[>Enter]") <:#231,9360>EndIf <:#231,9360>Goto xSETUPFINISH <:#231,9360> @label@<:#220,9360>xSETUPABORT: <:#231,9360>x = fError(Err, "Error preparing to download data.") <:#231,9360>vSTATUS = 0 <:#231,9360> @label@<:#220,9360>xSETUPFINISH: <:#231,9360>StatusBarMsg("") <:#231,9360>fSetUpDoc = vSTATUS @label@<:#220,9360>End Function <:#231,9360> <:#231,9360> <:#231,9360>'---------- @Function@<:#293,9360>Function fNEWFILE(vHWnd, vFILETYPE$, vCITE$, vCLIENT$, vGLOBAL) <:#231,9360>vSTATUS = 0 <:#231,9360>vCREATED = 0 <:#231,9360>OnError xNEWFILEABORT <:#231,9360>StatusBarMsg("Creating new file...") <:#231,9360>If GetOpenFileCount() = 0 Then <:#231,9360> vEXISTFILE$ = "none" <:#231,9360>Else <:#231,9360> vEXISTFILE$ = GetOpenFileName$() <:#231,9360> If vEXISTFILE$ = "" Then <:#231,9360> vEXISTFILE$ = "untitled" <:#231,9360> EndIf <:#231,9360>EndIf <:#231,9360>If vFILETYPE$ = "" Then <:#231,9360> vFILETYPE$ = "LEXIS" <:#231,9360>EndIf <:#231,9360> <:#231,9360>vSTYPATH$ = GetStylePath$() <:#231,9360>vDOTPATH$ = vSTYPATH$ <:#231,9360>If vDOTPATH$ = "" Then <:#231,9360> vDOTPATH$ = dGetAppFile(gcAPPMOD$) <:#231,9360> vDOTPATH$ = Left$(vDOTPATH$, dLastChar(vDOTPATH$, "\") - 1) <:#231,9360>EndIf <:#231,9360>vDOTPATH$ = dLobster(vDOTPATH$, 1) <:#231,9360>vINIFILE$ = LEXISInfo(vHWnd, 10) <:#231,9360>vTEMPLATE$ = dGetIniText(gcINI#OPTIONS$, "AmiProTemplate", vINIFILE$) <:#231,9360>If vTEMPLATE$ = "" Then <:#231,9360> vTEMPLATE$ = gcTEMPLATE$ <:#231,9360> vDOTPATH$ = vSTYPATH$ <:#231,9360>ElseIf InStr(1, vTEMPLATE$, "\") <;> 0 Then <:#231,9360> vPOS = dLastChar(vTEMPLATE$, "\") <:#231,9360> vDOTPATH$ = Left$(vTEMPLATE$, vPOS) <:#231,9360> vTEMPLATE$ = Mid$(vTEMPLATE$, vPOS + 1, Len(vTEMPLATE$) - vPOS) <:#231,9360>EndIf <:#231,9360>If FindFirst$("{vDOTPATH$}{vTEMPLATE$}", 0) = "" Then <:#231,9360> vDEFSTY$ = GetProfileString$("AmiPro","defstyle", "amipro.ini") <:#231,9360> vTEMPLATE$ = vDEFSTY$ <:#231,9360> vDOTPATH$ = vSTYPATH$ <:#231,9360> If FindFirst$("{vDOTPATH$}{vTEMPLATE$}", 0) = "" Then <:#231,9360> vTEMPLATE$ = "" <:#231,9360> EndIf <:#231,9360>EndIf <:#231,9360> @label@<:#220,9360>xFILENEW: <:#231,9360>OnError xFILENEWERR <:#231,9360>If vDOTPATH$ <<<;> vSTYPATH$ Then <:#231,9360> If SetStylePath(vDOTPATH$) = -2 Then <:#462,9360> x=MultiDecide("Error setting style path to directory of template ({vDOTPATH$}).", 0+48,gcDBTITLE$) <:#231,9360> vTEMPLATE$ = "" <:#231,9360> vDOTPATH$ = vSTYPATH$ <:#231,9360> EndIf <:#231,9360>EndIf <:#231,9360>If vTEMPLATE$ = "" Then <:#231,9360> AnswerMsgBox(1) <:#231,9360>EndIf <:#231,9360>New(vTEMPLATE$, 0, 512) <:#231,9360>vCREATED = -1 <:#231,9360>OnError xNEWFILEABORT <:#231,9360>If vDOTPATH$ <<<;> vSTYPATH$ Then <:#231,9360> SetStylePath(vSTYPATH$) <:#231,9360>EndIf <:#231,9360> <:#231,9360>vKEY$ = "{vFILETYPE$} SEARCH" <:#231,9360>vTITLE$ = Left$("{vFILETYPE$}: {vCITE$}", 64) <:#231,9360>DocInfo(vTITLE$, Left$("{vKEY$}, {vCITE$}", 32), 0) <:#231,9360>SetDocVar("LEXISClient", vCLIENT$) <:#231,9360> <:#231,9360>If vTEMPLATE$ = "" or vTEMPLATE$ = vDEFSTY$ Then <:#231,9360> If fSetDefaultFormat(0) = 0 Then <:#231,9360> Goto xNEWFILEABORT <:#231,9360> EndIf <:#231,9360>EndIf <:#231,9360> <:#231,9360>OnError xNEWFILEABORT <:#231,9360> <:#231,9360>Type("<[>CtrlHome]") <:#231,9360>If CurChar$() <<<;> "" Then <:#231,9360> Type("<[>Enter]") <:#231,9360> Type("<[>Up]") <:#231,9360>EndIf <:#231,9360>NormalText() <:#231,9360> <:#231,9360>vSTATUS = 1 <:#231,9360>StatusBarMsg("") <:#231,9360>Goto xNEWFILEFINISH <:#231,9360> @label@<:#220,9360>xFILENEWERR: <:#231,9360>If vTEMPLATE$ <<<;> "" Then <:#231,9360> vTEMPLATE$ = "" <:#231,9360> Goto xFILENEW <:#231,9360>EndIf <:#231,9360> @label@<:#220,9360>xNEWFILEABORT: <:#231,9360>x = fError(Err, "Error creating new document.") <:#231,9360>If vCREATED <<<;> 0 Then <:#231,9360> If vEXISTFILE$ <<<;> GetOpenFileName$() Then <:#231,9360> FileChanged(1,0) <:#231,9360> FileClose() <:#231,9360> EndIf <:#231,9360>EndIf <:#231,9360> @label@<:#220,9360>xNEWFILEFINISH: <:#231,9360>fNEWFILE = vSTATUS @label@<:#220,9360>End Function <:#231,9360> <:#231,9360> <:#231,9360>'---------- @Function@<:#293,9360>Function fSetDefaultFormat(vAPPEND) <:#231,9360>vSTATUS = 0 <:#231,9360>OnError xSETDEFAULTABORT <:#231,9360> <:#231,9360>ModLayoutInit(512) <:#231,9360>ModLayoutPageSize(15840, 12240, 1, 1) <:#231,9360>ModLayoutRightPage(1440, 1440, 1080, 1440, 1, 0, 1, 1440, 11160, 0) <:#231,9360>ModLayoutFinish( ) <:#231,9360> <:#231,9360>FontChange("Courier New", FixedPitch + Modern, 0, 10*20) <:#231,9360>DEFSTR vFNAME$, vPITCHFAM, vFCOLOR, vFSIZE <:#231,9360>GetCurFontInfo(&vFNAME$, &vFCOLOR, &vFSIZE, &vPITCHFAM) <:#231,9360>If vFSIZE/20 <;> 10 Then <:#231,9360> vFNAME$ = "LinePrinter" <:#231,9360> vFSIZE = 8.5*20 <:#231,9360> FontChange(vFNAME$, vPITCHFAM, 0, vFSIZE) <:#231,9360>EndIf <:#231,9360> <:#231,9360>If vAPPEND = 0 Then <:#231,9360> vSTYLE$ = GetStyleName$() <:#231,9360> ModifySelect(vSTYLE$) <:#231,9360> ModifySpacing(1 + 32, 240, 0, 0, 100, 4, 4) <:#231,9360> ModifyAlignment(1, 0, 0, 0, 1, 0) <:#231,9360> ModifyFont(vFNAME$, vFSIZE, 0, 1024) <:#231,9360> ModifyReflow( ) <:#231,9360>Else <:#231,9360> <:#231,9360><:f200,BArial,0,0,255>'//* Make sure that the font in "Body Text" is 10 point "Courier New".<:f> <:#231,9360> <:#231,9360> ModifySelect("Body Text") <:#231,9360> ModifyFont(vFNAME$, vFSIZE, 0, 1024) <:#231,9360> ModifyReflow( ) <:#231,9360> <:#231,9360> SetStyle("Body Text") <:#231,9360> FontChange(vFNAME$, vPITCHFAM, 0, vFSIZE) <:#231,9360> LeftAlign() <:#231,9360> Indent(0, 0, 0, 0) <:#231,9360> Spacing(-1) <:#231,9360> NormalText() <:#231,9360>EndIf <:#231,9360>If GetViewPrefLevel() <<<;> 90 Then <:#231,9360> vTEMP = GetViewPrefOpts() <:#231,9360> ViewPreferences(vTEMP, 90) <:#231,9360>EndIf <:#231,9360>If GetViewLevel() <<<;> 202 Then <:#231,9360> CustomView() <:#231,9360>EndIf <:#231,9360>vSTATUS = 1 <:#231,9360>Goto xSETDEFAULTFINISH <:#231,9360> @label@<:#220,9360>xSETDEFAULTABORT: <:#231,9360>x = fError(Err, "Error setting default formatting.") <:#231,9360> @label@<:#220,9360>xSETDEFAULTFINISH: <:#231,9360>StatusBarMsg("") <:#231,9360>fSetDefaultFormat = vSTATUS @label@<:#220,9360>End Function <:#231,9360> <:#231,9360> <:#231,9360>'---------- @Function@<:#293,9360>Function fLEXSEEFormat(vAPPEND, pPAGES) <:#231,9360>vSTATUS = 0 <:#231,9360>OnError xLEXSEEFINISH <:#231,9360>vMSG$ = "Reformat LEXSEE document to remove fixed line breaks?" <:#231,9360>If pPages <;> 75 Then <:#231,9360> vMSG$ = StrCat$(vMSG$, Chr$(10), Chr$(10), "(File must be saved before reformatting.)") <:#231,9360>EndIf <:#231,9360>If MultiDecide(vMSG$, 4 + 32, gcDBTITLE$) = 7 Then <:#231,9360> Goto xLEXSEEFINISH <:#231,9360>EndIf <:#231,9360> @label@<:#220,9360>xLEXSEESAVE: <:#231,9360>If pPAGES <;> 75 Then <:#231,9360>OnCancel xLEXSEESAVECANCEL <:#231,9360> If GetOpenFileName$() = "" Then <:#231,9360> SaveAs <:#231,9360> Else <:#231,9360> Save() <:#231,9360> EndIF @label@<:#220,9360>xLEXSEESAVECANCEL: <:#231,9360> If GetOpenFileName$() = "" Then <:#231,9360> StatusBarMsg("File must be saved to continue with reformatting.") <:#231,9360> If MultiDecide(StrCat$("File/Save was not successfully completed. ", Chr$(10), <:#231,9360> "File must be saved to continue with reformatting."), 5 + 16, gcDBTITLE$) = 4 <:#231,9360> Then <:#231,9360> Goto xLEXSEESAVE <:#231,9360> Else <:#231,9360> Goto xLEXSEEFINISH <:#231,9360> EndIf <:#231,9360> EndIf <:#231,9360> OnError xLEXSEEABORT <:#231,9360>EndIf <:#231,9360> <:#231,9360>StatusBarMsg("Reformatting, please wait...") <:#231,9360>If CurChar$() = "" Then <:#231,9360> Type("<[>Del]") <:#231,9360>EndIf <:#231,9360>Type("<[>CtrlHome]") <:#231,9360>If vAPPEND <<<;> 0 Then <:#231,9360> If MarkBookMark(gcAPPENDBKMK$, FindBookmark) = 1 Then <:#231,9360> Else <:#231,9360> If MultiDecide(StrCat$("Append bookmark missing.", Chr$(10), Chr$(10), <:#231,9360> "Reformat entire current document?"), 4 + 48, gcDBTITLE$) = 7 <:#231,9360> Then <:#231,9360> Goto xLEXSEEFINISH <:#231,9360> EndIf <:#231,9360> EndIf <:#231,9360>EndIf <:#231,9360>MarkBookMark("LEXSEEformat", DeleteBookmark) <:#231,9360>MarkBookMark("LEXSEEformat", AddBookmark) <:#231,9360> <:#231,9360>Replace(0, 0, ReplaceAll + FindCurrentStream, "</v>", "<\>") <:#231,9360>Replace(0, 0, ReplaceAll + FindCurrentStream, "<\><\><\>", "<\><\>") <:#231,9360>Replace(0, 0, ReplaceAll + FindCurrentStream, "<\><\>", "</k>") <:#231,9360>Replace(0, 0, ReplaceAll + FindCurrentStream, "<\> ", "</{> ")<-"> <:#231,9360>Replace(0, 0, ReplaceAll + FindCurrentStream, "<\>", " ") <:#231,9360>Replace(0, 0, ReplaceAll + FindCurrentStream, "</k>", "</v>") <:#231,9360>While Replace(0, 0, FindCurrentStream, "</{>", "") = 1 <:#231,9360> Type("<[>Del]<[>CtrlEnter]") <:#231,9360>Wend <:#231,9360> <:#231,9360>MarkBookMark("LEXSEEformat", FindBookmark) <:#231,9360>vFMT = 0 <:#231,9360>vCNT = GetStyleCount() <:#231,9360>Dim aSTYLE$(vCNT) <:#231,9360>GetStyleNames(&aSTYLE$) <:#231,9360>For i = vCNT to 1 step -1 <:#231,9360> If aSTYLE$(i) = "LEXSEE" Then <:#231,9360> vFMT = 1 <:#231,9360> i = 1 <:#231,9360> EndIf <:#231,9360>Next <:#231,9360>If vFMT = 0 Then <:#231,9360> Type("<[>Down]") <:#231,9360> CreateStyle("LEXSEE", "Body Text", 2) <:#231,9360> <:#231,9360><:f200,BArial,0,0,255>'//* Make sure that the color of the style is not BLUE, which it will get from the Headline!<:f> <:#231,9360> <:#231,9360> DEFSTR vFNAME$, vCOLOR, vFONTSIZE, vPITCHFAM <:#231,9360> GetCurFontInfo(&vFNAME$, &vCOLOR, &vFONTSIZE, &vPITCHFAM) <:#231,9360> ModifySelect("LEXSEE") <:#231,9360> ModifyFont(vFNAME$,vFONTSIZE,0,8) <:#231,9360> ModifyReflow() <:#231,9360> <:#231,9360> Type("<[>Up]") <:#231,9360>EndIf <:#231,9360>Type( "<[>CtrlShiftEnd]") <:#231,9360>SetStyle("LEXSEE") <:#231,9360> <:#231,9360>ModifySelect("LEXSEE") <:#231,9360>ModifySpacing(1 + 32, 240, 240, 0, 100, 1, 1) <:#231,9360>ModifyReflow() <:#231,9360> <:#231,9360>MarkBookMark("LEXSEEformat", FindBookmark) <:#231,9360>MarkBookMark("LEXSEEformat", DeleteBookmark) <:#231,9360>vSTATUS = 1 <:#231,9360>Goto xLEXSEEFINISH <:#231,9360> @label@<:#220,9360>xLEXSEEABORT: <:#231,9360>vTEMP = GetGlobalVar$("LEXgFAILURE") <:#231,9360>x = fError(Err, "Error reformatting LEXSEE document.") <:#231,9360>SetGlobalVar("LEXgFAILURE", vTEMP) <:#231,9360> @label@<:#220,9360>xLEXSEEFINISH: <:#231,9360>StatusBarMsg("") <:#231,9360>fLEXSEEFormat = vSTATUS @label@<:#220,9360>End Function <:#231,9360> <:#231,9360> <:#231,9360>'---------- @Function@<:#293,9360>Function fError(pErr, pMsg$) <:#231,9360>OnError xERRORFINISH <:#231,9360>Beep() <:#231,9360>vMSG$ = pMsg$ <:#231,9360>StatusBarMsg("Aborting...") <:#231,9360>ActivateApp(dGetAppWindow(gcAPPWIN$)) <:#231,9360> <:#231,9360>If GetGlobalVar$("LEXgFAILURE") = 0 Then <:#231,9360> x=MultiDecide(vMSG$, 48, gcDBTITLE$) <:#231,9360>EndIf <:#231,9360>SetGlobalVar("LEXgFAILURE", -1) <:#231,9360>StatusBarMsg("") @label@<:#220,9360>xERRORFINISH: @label@<:#220,9360>End Function <:#231,9360> <:#231,9360> @label@<:#220,9360>Function RemoveInstallMenu() <:#231,9360> DeleteMenuItem(1, "Too&ls", "Install LEXIS &Access...") @label@<:#220,9360>End Function <:#231,9360> @label@<:#220,9360>Function SetDocView() @Close Text@<:#231,9360> ViewPreferences(2,90) @Close Text@<:#231,9360> CustomView() @label@<:#220,9360>End Function <:#231,9360> <:#231,9360> > [Embedded] 00035290 > [macsum] 9 LEXISAmi 0 0 22 73 fGetDocSelection$ 3725 0 3 231 fSetUpDoc 3950 7 9 247 fNEWFILE 5737 5 13 345 fSetDefaultFormat 7820 1 9 452 fLEXSEEFormat 8717 2 13 512 fError 11176 2 3 622 RemoveInstallMenu 11452 0 1 638 SetDocView 11531 0 1 642 [macse] 14 LEXISAmi 0 16 "Initializing " "LEXIS-NEXIS Online Connection" "..." 13 0 789 [X] 20 00003329 5 0 8 1 0 266 "LEXgFAILURE" 0 271 "LEXgFAILURE" 1 13 5 0 18 0 11 00000287 0 16 "Insufficient memory initializing " "LEXIS-NEXIS Online Connection" "." 13 0 3 [X] 10 00003703 0 264 "LEXgFAILURE" 0 0 1050 13 5 0 18 3 11 00000561 0 279 1 13 0 17 [X] 13 8 2 6 2 7 "lexis.smm" 18 0 11 00000561 5 0 5 16 3 0 0 21 "Command cannot be run with this macro as the active document." [X] "LEXIS-NEXIS Online Connection" 13 8 3 10 00003703 0 284 "user.dll,GetActiveWindow,H" 13 8 4 0 39 10 13 8 5 0 284 "dlghook.dll,dhStartLexToolbar,H" 0 274 2 0 297 "LEXIS-GA.DLL" "LEXISInfo" "CHI" 13 8 1 6 1 5 0 18 0 11 00001007 0 16 "LEXIS Access Library file missing." "{5}" "{5}" "LEXIS-GA.DLL" " must be " "installed in the \WINDOWS\SYSTEM directory to run this macro." 13 5 0 5 16 3 0 0 21 [X] [X] "LEXIS-NEXIS Online Connection" 13 8 3 0 266 "LEXgFAILURE" 10 00003703 0 284 "lexis-ga.dll,LEXISInfo,CHI" "{4}" 12 13 7 "2.70" 18 5 11 00001296 0 16 "Incorrect version of LEXIS Access Library (" "LEXIS-GA.DLL" "). " "{5}" "Version " "2.70" " or later is required." 13 5 0 5 16 3 0 0 21 [X] [X] "LEXIS-NEXIS Online Connection" 13 8 3 10 00003414 19 00003414 5 1 8 6 0 1310 "LEXISClient" 13 8 7 6 7 8 8 16 fGetDocSelection$ 13 8 9 0 16 "LEXIS-NEXIS Online Connection" " for " "Lotus Ami Pro" 13 0 789 [X] 0 284 "lexis-ga.dll,LEXISDialog,IHCCCCIC" "{4}" "{9}" "{8}" "Lotus Ami Pro" "2.70" 0 "" 13 8 10 6 10 5 65500 18 3 11 00001627 6 10 5 65536 3 1 8 10 6 10 5 2 18 5 11 00001670 10 00003414 0 284 "lexis-ga.dll,LEXISInfo,CHI" "{4}" 2 13 8 8 6 8 6 7 18 1 6 8 7 "" 18 1 1 1 11 00001802 0 1311 "LEXISClient" "{8}" 6 10 5 4 18 5 11 00001845 10 00003414 0 284 "lexis-ga.dll,LEXISGetAppType,H" 13 5 4 18 1 11 00001976 0 284 "lexis-ga.dll,LEXISDownloadToApp,CC" "{4}" 10 00003414 0 284 "lexis-ga.dll,LEXISInfo,CHI" "{4}" 1 13 8 9 0 284 "lexis-ga.dll,LEXISInfo,CHI" "{4}" 7 13 8 11 7 "" 8 12 5 0 8 13 5 0 8 14 5 0 8 15 5 3 8 16 5 0 8 17 6 16 5 2 18 3 11 00003029 0 39 91 13 8 18 0 789 "{11} {18}{9}]" 0 284 "lexis-ga.dll,LEXISData,IH" "{4}" 13 8 16 6 16 5 65500 18 3 11 00002333 6 16 5 65536 3 1 8 16 6 16 5 2 18 0 6 16 5 3 18 3 1 2 11 00002504 6 13 5 0 18 3 11 00002504 0 18 "{12}" 13 7 "LEXSEE" 18 0 11 00002504 16 fLEXSEEFormat "{17}" "{14}" 13 8 3 6 16 5 2 18 3 11 00003016 6 16 5 3 18 3 11 00002892 6 16 5 4 3 1 8 17 0 284 "lexis-ga.dll,LEXISInfo,CHI" "{4}" 7 13 8 11 0 284 "lexis-ga.dll,dLobster,CCH" "{11}" 11 13 8 12 16 fSetUpDoc "{4}" "{17}" "{13}" "{12}" "{9}" "{8}" "{6}" 13 5 0 18 0 11 00002806 5 0 8 16 10 00002828 6 13 5 1 3 0 8 13 6 17 5 0 18 0 11 00002892 6 15 6 14 3 0 8 15 5 0 8 14 6 16 5 0 18 3 11 00003016 0 284 "lexis-ga.dll,dGetAppWindow,CC" "Ami Pro" 13 0 38 [X] 2 155 1 6 14 5 1 3 0 8 14 10 00002150 6 16 5 2 18 0 11 00003316 6 15 6 14 3 0 8 15 7 "Download completed." 8 19 0 789 "{19}" 0 16 "{19}{5}{5}LEXIS DOCUMENTS: {13}{5}" "TOTAL LEXIS PAGES: {15}" 13 8 20 0 16 "LEXIS-NEXIS Online Connection" "{5}" "------------------------------------" "{5}" "{20}" 13 0 3 [X] 10 00003414 16 fError 0 "Error encountered in LEXIS/NEXIS Ami Pro macro main routine." 13 8 3 0 789 "" 6 1 5 0 18 1 11 00003520 0 284 "lexis-ga.dll,LEXISInfo,CHI" "{4}" 0 13 8 21 0 298 "{1}" 0 266 "LEXgFAILURE" 6 10 5 3 18 1 11 00003634 0 284 "lexis-ga.dll,dGetAppWindow,CC" "Ami Pro" 13 0 38 [X] 0 1050 13 5 0 18 3 11 00003703 2 466 1 "LEXISAppendStart" 4004 0 789 "" 6 0 15 9 14 fGetDocSelection$ 20 00000203 7 "" 8 1 0 24 13 8 1 0 14 "{1}" 13 8 2 6 2 5 0 18 5 6 2 5 256 18 3 1 2 11 00000177 7 "(invalid selection)" 8 1 10 00000203 0 806 "{1}" 128 13 8 1 6 1 8 0 6 0 15 9 14 fSetUpDoc 5 0 8 8 20 00001686 0 789 "Setting up document for downloading data..." 6 1 5 0 18 0 11 00000398 0 1050 13 5 8 18 3 11 00000398 0 39 10 13 0 16 "Too many document windows open to create a new document." [X] "Append to current document?." 13 5 1 5 32 3 0 0 21 [X] [X] "LEXIS-NEXIS Online Connection" 13 5 1 18 0 11 00000385 5 1 8 1 10 00000398 10 00001755 6 1 5 0 18 0 11 00000775 0 1050 13 5 0 18 3 11 00000496 2 466 1 "LEXISAppendStart" 4004 16 fNewFile "{0}" "{3}" "{4}" "{5}" "{6}" 13 8 8 6 8 5 0 18 0 11 00000775 0 39 10 13 0 16 "Unable to create new document." [X] "Append to current document?" 13 0 21 [X] 1 "LEXIS-NEXIS Online Connection" 13 5 1 18 0 11 00000762 5 1 8 1 10 00000775 10 00001755 6 1 5 0 18 1 11 00001337 0 1050 13 5 0 18 0 11 00000902 0 3 "Sorry, no document is open for appending." 10 00001755 0 6 "[16419]" 0 6 "[36]" 0 282 13 7 "" 18 1 11 00000981 0 6 "[35][13]" 2 466 1 "LEXISAppendStart" 4004 2 466 1 "LEXISAppendStart" 4003 2 357 1 1 6 2 5 0 18 0 11 00001327 16 fSetDefaultFormat 1 13 8 8 6 8 5 0 18 0 11 00001290 0 789 "Cleaning up..." 2 466 1 "LEXISAppendStart" 4002 0 6 "[20515]" 2 466 1 "LEXISAppendStart" 4004 2 357 1 2 0 6 "[46]" 10 00001314 0 6 "[13]" 0 6 "[38]" 10 00001337 5 1 8 8 0 284 "lexis-ga.dll,LEXISInfo,CHI" "{0}" 8 13 8 9 6 9 7 "" 18 1 11 00001673 0 804 &10 &11 &12 &13 2 251 1 "" 0 16711680 "{12}" 2 255 1 0 6 "{9}[16397]" 2 251 1 "" 0 "{11}" "{12}" 2 255 1 5 1 8 14 5 8 6 14 18 2 12 00001626 10 00001657 5 1 6 14 3 0 8 14 10 00001548 0 6 "----------" 10 00001591 0 6 "[13][13]" 10 00001755 16 fError 0 "Error preparing to download data." 13 8 15 5 0 8 8 0 789 "" 6 8 8 7 6 7 15 9 14 fNEWFILE 5 0 8 6 5 0 8 7 20 00001924 0 789 "Creating new file..." 0 1050 13 5 0 18 0 11 00000140 7 "none" 8 8 10 00000205 0 267 13 8 8 6 8 7 "" 18 0 11 00000205 7 "untitled" 8 8 6 1 7 "" 18 0 11 00000251 7 "LEXIS" 8 1 0 269 13 8 9 6 9 8 10 6 10 7 "" 18 0 11 00000454 0 284 "lexis-ga.dll,dGetAppFile,CC" "AMIPRO" 13 8 10 0 284 "lexis-ga.dll,dLastChar,ICC" "{10}" "\" 13 5 1 3 1 0 806 "{10}" [X] 13 8 10 0 284 "lexis-ga.dll,dLobster,CCH" "{10}" 1 13 8 10 0 284 "lexis-ga.dll,LEXISInfo,CHI" "{0}" 10 13 8 11 0 284 "lexis-ga.dll,dGetIniText,CCCC" "DDE MACROS" "AmiProTemplate" "{11}" 13 8 12 6 12 7 "" 18 0 11 00000726 7 "_LEXIS.STY" 8 12 6 9 8 10 10 00000937 0 808 1 "{12}" "\" 13 5 0 18 3 11 00000937 0 284 "lexis-ga.dll,dLastChar,ICC" "{12}" "\" 13 8 13 0 806 "{12}" "{13}" 13 8 10 6 13 5 1 3 0 0 14 "{12}" 13 6 13 3 1 0 15 "{12}" [X] [X] 13 8 12 0 280 "{10}{12}" 0 13 7 "" 18 0 11 00001120 0 286 "AmiPro" "defstyle" "amipro.ini" 13 8 14 6 14 8 12 6 9 8 10 0 280 "{10}{12}" 0 13 7 "" 18 0 11 00001120 7 "" 8 12 20 00001868 6 10 6 9 18 1 11 00001359 2 175 1 "{10}" 13 5 -2 18 0 11 00001359 5 0 5 48 3 0 0 21 "Error setting style path to directory of template ({10})." [X] "LEXIS-NEXIS Online Connection" 13 8 15 7 "" 8 12 6 9 8 10 6 12 7 "" 18 0 11 00001399 0 291 1 2 101 1 "{12}" 0 512 5 -1 8 7 20 00001924 6 10 6 9 18 1 11 00001490 2 175 1 "{9}" 7 "{1} SEARCH" 8 16 0 806 "{1}: {2}" 64 13 8 17 0 806 "{16}, {2}" 32 13 2 109 1 "{17}" [X] 0 0 1311 "LEXISClient" "{3}" 6 12 7 "" 18 0 6 12 6 14 18 0 1 2 11 00001738 16 fSetDefaultFormat 0 13 5 0 18 0 11 00001738 10 00001924 20 00001924 0 6 "[16420]" 0 282 13 7 "" 18 1 11 00001826 0 6 "[13]" 0 6 "[38]" 2 253 1 5 1 8 6 0 789 "" 10 00002061 6 12 7 "" 18 1 11 00001924 7 "" 8 12 10 00001120 16 fError 0 "Error creating new document." 13 8 15 6 7 5 0 18 1 11 00002061 6 8 0 267 13 18 1 11 00002061 0 34 1 0 2 147 1 6 6 8 5 6 5 15 9 14 fSetDefaultFormat 5 0 8 2 20 00000807 2 361 1 512 2 362 1 15840 12240 1 1 2 363 1 1440 1440 1080 1440 1 0 1 1440 11160 0 2 376 1 5 1 5 48 3 0 5 10 5 20 4 0 2 251 1 "Courier New" [X] 0 [X] 0 804 &3 &5 &6 &4 6 6 5 20 4 1 5 10 18 3 11 00000340 7 "LinePrinter" 8 3 5 8.5 5 20 4 0 8 6 2 251 1 "{3}" "{4}" 0 "{6}" 6 0 5 0 18 0 11 00000516 0 288 13 8 7 2 311 1 "{7}" 5 1 5 32 3 0 2 316 1 [X] 240 0 0 100 4 4 2 313 1 1 0 0 0 1 0 2 315 1 "{3}" "{6}" 0 1024 2 319 1 10 00000671 2 311 1 "Body Text" 2 315 1 "{3}" "{6}" 0 1024 2 319 1 2 323 1 "Body Text" 2 251 1 "{3}" "{4}" 0 "{6}" 2 259 1 2 265 1 0 0 0 0 2 252 1 -1 2 253 1 0 46 13 5 90 18 1 11 00000739 0 45 13 8 8 2 206 1 "{8}" 90 0 28 13 5 202 18 1 11 00000784 2 202 1 5 1 8 2 10 00000865 16 fError 0 "Error setting default formatting." 13 8 9 0 789 "" 6 2 8 1 6 1 15 9 14 fLEXSEEFormat 5 0 8 3 20 00002427 7 "Reformat LEXSEE document to remove fixed line breaks?" 8 4 6 1 5 75 18 3 11 00000234 0 39 10 13 0 39 10 13 0 16 "{4}" [X] [X] "(File must be saved before reformatting.)" 13 8 4 5 4 5 32 3 0 0 21 "{4}" [X] "LEXIS-NEXIS Online Connection" 13 5 7 18 0 11 00000339 10 00002427 6 1 5 75 18 3 11 00000810 19 00000448 0 267 13 7 "" 18 0 11 00000439 24 104 10 00000448 2 103 1 0 267 13 7 "" 18 0 11 00000797 0 789 "File must be saved to continue with reformatting." 0 39 10 13 0 16 "File/Save was not successfully completed. " [X] "File must be saved to continue with reformatting." 13 5 5 5 16 3 0 0 21 [X] [X] "LEXIS-NEXIS Online Connection" 13 5 4 18 0 11 00000784 10 00000339 10 00000797 10 00002427 20 00002307 0 789 "Reformatting, please wait..." 0 282 13 7 "" 18 0 11 00000896 0 6 "[46]" 0 6 "[16420]" 6 0 5 0 18 1 11 00001224 2 466 1 "LEXISAppendStart" 4002 13 5 1 18 0 11 00001014 10 00001224 0 39 10 13 0 39 10 13 0 16 "Append bookmark missing." [X] [X] "Reformat entire current document?" 13 5 4 5 48 3 0 0 21 [X] [X] "LEXIS-NEXIS Online Connection" 13 5 7 18 0 11 00001224 10 00002427 2 466 1 "LEXSEEformat" 4004 2 466 1 "LEXSEEformat" 4003 5 1024 5 16384 3 0 2 488 1 0 0 [X] "</v>" "<\>" 5 1024 5 16384 3 0 2 488 1 0 0 [X] "<\><\><\>" "<\><\>" 5 1024 5 16384 3 0 2 488 1 0 0 [X] "<\><\>" "</k>" 5 1024 5 16384 3 0 2 488 1 0 0 [X] "<\> " "</{> " 5 1024 5 16384 3 0 2 488 1 0 0 [X] "<\>" " " 5 1024 5 16384 3 0 2 488 1 0 0 [X] "</k>" "</v>" 2 488 1 0 0 16384 "</{>" "" 13 5 1 18 0 11 00001716 0 6 "[46][16397]" 10 00001627 2 466 1 "LEXSEEformat" 4002 5 0 8 5 0 1308 13 8 6 6 6 21 7 [X] 0 1309 &7 6 6 8 8 5 1 6 8 18 4 12 00001884 10 00001959 5 -1 6 8 3 0 8 8 10 00001808 6 8 22 7 7 "LEXSEE" 18 0 11 00001946 5 1 8 5 5 1 8 8 10 00001850 6 5 5 0 18 0 11 00002119 0 6 "[40]" 2 301 1 "LEXSEE" "Body Text" 2 0 804 &9 &10 &11 &12 2 311 1 "LEXSEE" 2 315 1 "{9}" "{11}" 0 8 2 319 1 0 6 "[38]" 0 6 "[20515]" 2 323 1 "LEXSEE" 2 311 1 "LEXSEE" 5 1 5 32 3 0 2 316 1 [X] 240 240 0 100 1 1 2 319 1 2 466 1 "LEXSEEformat" 4002 2 466 1 "LEXSEEformat" 4004 5 1 8 3 10 00002427 0 265 "LEXgFAILURE" 13 8 13 16 fError 0 "Error reformatting LEXSEE document." 13 8 14 0 264 "LEXgFAILURE" "{13}" 0 789 "" 6 3 8 2 6 2 15 9 14 fError 20 00000264 0 801 6 1 8 3 0 789 "Aborting..." 0 284 "lexis-ga.dll,dGetAppWindow,CC" "Ami Pro" 13 0 38 [X] 0 265 "LEXgFAILURE" 13 5 0 18 0 11 00000230 0 21 "{3}" 48 "LEXIS-NEXIS Online Connection" 13 8 4 0 264 "LEXgFAILURE" -1 0 789 "" 6 2 15 9 14 RemoveInstallMenu 0 520 1 "Too&ls" "Install LEXIS &Access..." 6 0 15 9 14 SetDocView 2 206 1 2 90 2 202 1 6 0 15 9 00035315